use XML::Simple;

my $file = "pace_methods.c";
my %WorkItemToRevNumberHash = ();
my $tmp_file = "/tmp/andrey.$$.xml";
my $svn_out = `svn log --xml "$file" > $tmp_file`;
my $xml = XMLin($tmp_file, ForceArray=>1);

system "polarion_export --server http://cad --query \"project.id:galaxy\" --fields \"id,status\" --output galaxy_all.xls";

foreach my $item (@{$xml->{logentry}}) {
  # get log attributes for this revision of $file
  my $revision = $item->{revision};
  my $date     = $item->{date}->[0];
  my $author   = $item->{author}->[0];
  my $msg      = $item->{msg}->[0];
  print "message = \n $msg \n";
  if($msg =~ m/(\w\w\w-\d+)\s+/)
  {
    print "MATCH = $1 \n";
  }
  # do something here
}
